type
  TClassTest =